home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / cim_r32 / stuff / scripts / dos / fax_gpfax.script < prev    next >
Text File  |  1999-12-06  |  1KB  |  52 lines
  1.  
  2. ; $VER: fax_gpfax_script 1.0 (30.11.1999)
  3. ; Written by Jan-Erik Tervo
  4. ; ARexx and CIM V2 must be running
  5.  
  6.  
  7. FAILAT 21
  8.  
  9.  
  10.      RUN >NIL: RequestChoice "CIM" "FAX Call Received" "OK"
  11.  
  12.  
  13.      IF EXISTS GPFAX:GPFAX
  14.  
  15.             rx 'address CIM DEVICE_RELEASE'
  16.                     
  17.             IF ERROR
  18.                             
  19.                 RUN >NIL: RequestChoice "CIM" "Error !" "Ok"
  20.                            
  21.                ELSE
  22.                         
  23.                RUN >NIL: GPFAX:GPFAX -Q
  24.           
  25.                Sys:Rexxc/WaitForPort REXX_GPFAX
  26.  
  27.                IF ERROR
  28.                               
  29.                    RUN >NIL: RequestChoice "CIM" "Error. ARexx port of GPFax not found" "Ok"
  30.                  
  31.                   ELSE
  32.                                      
  33.                    rx >NIL: 'address REXX_GPFAX INITMODEM'
  34.                    rx >NIL: 'address REXX_GPFAX RECFAX'
  35.                    rx >NIL: 'address REXX_GPFAX QUIT'
  36.                    
  37.                 ENDIF
  38.              
  39.              ENDIF
  40.              
  41.              WAIT 5
  42.              
  43.              rx 'address CIM DEVICE_OPEN'
  44.              
  45.           ELSE
  46.           
  47.           RUN >NIL: RequestChoice "CIM" "Error. Fax Program not found" "Ok"
  48.           
  49.      ENDIF
  50.  
  51.  
  52.